Hi @danielinteractive , we labeled X as control arm in dbetadiff(), I think we can change X as control for this PR, let me know what you think

Hi @danielinteractive , we labeled X as control arm in dbetadiff(), I think we can change X as control for this PR, let me know what you think

Thanks @audreyyeoCH , yeah good point, it needs to be consistent for sure, because here the function calls dbetadiff()

Hi @danielinteractive , we labeled X as control arm in dbetadiff(), I think we can change X as control for this PR, let me know what you think

Thanks @audreyyeoCH , yeah good point, it needs to be consistent for sure, because here the function calls dbetadiff()

cool I'll change it

Hi @danielinteractive have you seen this issue before ? It works fine until the R cmdchecks.

Tried to address error moving the mapping in geom_line() which comes up with another error :

An option would be :

 if (shade) {
    pbetadiff_plot <- ggplot2::ggplot(data = data, mapping = aes(x = grid, y = density)) +
      ggplot2::geom_line(colour = "#888888") 
pbetadiff_plot <- pbeta_plot + # here I changed something
       ggplot2::geom_area(
        data = data[data$grid < stop_cut, ], fill = "#FF0046",
        mapping = aes(x = ifelse(grid < 0.2 & grid < 0.5, grid, 0))
      ) +
      ggplot2::geom_area(
        data = data[data$grid > go_cut, ], fill = "#009E73",
        mapping = aes(x = ifelse(grid > 0.3, grid, 0))
      ) +
      xlab("Difference between treatment") +
      ggplot2::ylab(quote(f(x))) +
      ggplot2::ggtitle(plot_title)
  }

@audreyyeoCH I think just prefixing, i.e. ggplot2::aes() should help. For the second issue, the y aesthetic was missing it seems.

🥳